Module modErrors
    Public Sub errNetworkSendError(ByRef caller As Object, ByVal msg As Object)
        errNetworkError(caller, msg)
    End Sub

    Public Sub errNetworkReceiveError(ByRef caller As Object, ByVal msg As Object)
        errNetworkError(caller, msg)
    End Sub

    Public Sub errNetworkError(ByRef caller As Object, ByVal msg As Object)
        MsgBox("Server disconnected!  Exiting admin...")
        Application.Exit()
    End Sub
End Module
